Derivación por diferencias divididas y por fórmulas de alta precisión en Visual Basic 2005 (página 2)
'NOTA: el Diseñador de Windows Forms
necesita el siguiente procedimiento
'Se puede modificar usando el
Diseñador de Windows Forms.
'No lo modifique con el editor de
código.
<System.Diagnostics.DebuggerStepThrough()>
_
Private Sub InitializeComponent()
Dim resources
As
System.ComponentModel.ComponentResourceManager =
New
System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.Label1 =
New
System.Windows.Forms.Label
Me.GroupBox1 =
New
System.Windows.Forms.GroupBox
Me.AxMSFlexGrid1 =
New
AxMSFlexGridLib.AxMSFlexGrid
Me.GroupBox2 =
New
System.Windows.Forms.GroupBox
Me.AxMSFlexGrid2 =
New
AxMSFlexGridLib.AxMSFlexGrid
Me.Label2 =
New
System.Windows.Forms.Label
Me.TextBox1 =
New
System.Windows.Forms.TextBox
Me.Label3 =
New
System.Windows.Forms.Label
Me.ComboBox2 =
New
System.Windows.Forms.ComboBox
Me.Label4 =
New
System.Windows.Forms.Label
Me.ComboBox1 =
New
System.Windows.Forms.ComboBox
Me.Label5 =
New
System.Windows.Forms.Label
Me.TextBox2 =
New
System.Windows.Forms.TextBox
Me.Label6 =
New
System.Windows.Forms.Label
Me.TextBox3 =
New
System.Windows.Forms.TextBox
Me.Button1 =
New
System.Windows.Forms.Button
Me.Button2 =
New
System.Windows.Forms.Button
Me.Label8 =
New
System.Windows.Forms.Label
Me.Button4 =
New
System.Windows.Forms.Button
Me.Label9 =
New
System.Windows.Forms.Label
Me.Label10 =
New
System.Windows.Forms.Label
Me.Label11 =
New
System.Windows.Forms.Label
Me.TextBox5 =
New
System.Windows.Forms.TextBox
Me.TextBox6 =
New
System.Windows.Forms.TextBox
Me.TextBox7 =
New
System.Windows.Forms.TextBox
Me.TextBox9 =
New
System.Windows.Forms.TextBox
Me.TextBox8 =
New
System.Windows.Forms.TextBox
Me.Label12 =
New
System.Windows.Forms.Label
Me.Label13 =
New
System.Windows.Forms.Label
Me.Label14 =
New
System.Windows.Forms.Label
Me.TextBox10 =
New
System.Windows.Forms.TextBox
Me.Label15 =
New
System.Windows.Forms.Label
Me.Label7 =
New
System.Windows.Forms.Label
Me.TextBox4 =
New
System.Windows.Forms.TextBox
Me.GroupBox1.SuspendLayout()
CType(Me.AxMSFlexGrid1,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox2.SuspendLayout()
CType(Me.AxMSFlexGrid2,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.BackColor =
System.Drawing.Color.Transparent
Me.Label1.Font =
New
System.Drawing.Font("Georgia", 15.0!, CType(((System.Drawing.FontStyle.Bold
Or
System.Drawing.FontStyle.Italic) _
Or
System.Drawing.FontStyle.Underline),
System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor =
System.Drawing.Color.Lime
Me.Label1.Location =
New System.Drawing.Point(7,
13)
Me.Label1.Name =
"Label1"
Me.Label1.Size =
New System.Drawing.Size(772,
36)
Me.Label1.TabIndex =
0
Me.Label1.Text =
"Derivación por Diferencias
Divididas y por Fórmulas de Alta
Precisión"
Me.Label1.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'GroupBox1
'
Me.GroupBox1.BackColor =
System.Drawing.Color.Transparent
Me.GroupBox1.Controls.Add(Me.AxMSFlexGrid1)
Me.GroupBox1.Font =
New
System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold
Or
System.Drawing.FontStyle.Italic),
System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.ForeColor =
System.Drawing.Color.Yellow
Me.GroupBox1.Location
= New
System.Drawing.Point(13, 122)
Me.GroupBox1.Name =
"GroupBox1"
Me.GroupBox1.Size =
New System.Drawing.Size(762,
125)
Me.GroupBox1.TabIndex =
4
Me.GroupBox1.TabStop
= False
Me.GroupBox1.Text =
"Tablas de Diferencias
Divididas"
'
'AxMSFlexGrid1
'
Me.AxMSFlexGrid1.Location
= New
System.Drawing.Point(18, 23)
Me.AxMSFlexGrid1.Name
= "AxMSFlexGrid1"
Me.AxMSFlexGrid1.OcxState
= CType(resources.GetObject("AxMSFlexGrid1.OcxState"),
System.Windows.Forms.AxHost.State)
Me.AxMSFlexGrid1.Size
= New
System.Drawing.Size(728, 90)
Me.AxMSFlexGrid1.TabIndex =
0
Me.AxMSFlexGrid1.TabStop
= False
'
'GroupBox2
'
Me.GroupBox2.BackColor =
System.Drawing.Color.Transparent
Me.GroupBox2.Controls.Add(Me.AxMSFlexGrid2)
Me.GroupBox2.Font =
New
System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold
Or
System.Drawing.FontStyle.Italic),
System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox2.ForeColor =
System.Drawing.Color.Yellow
Me.GroupBox2.Location
= New
System.Drawing.Point(11, 300)
Me.GroupBox2.Name =
"GroupBox2"
Me.GroupBox2.Size =
New System.Drawing.Size(762,
123)
Me.GroupBox2.TabIndex =
5
Me.GroupBox2.TabStop
= False
Me.GroupBox2.Text =
"Fórmulas de Alta
Precisión"
'
'AxMSFlexGrid2
'
Me.AxMSFlexGrid2.Location
= New
System.Drawing.Point(23, 21)
Me.AxMSFlexGrid2.Name
= "AxMSFlexGrid2"
Me.AxMSFlexGrid2.OcxState
= CType(resources.GetObject("AxMSFlexGrid2.OcxState"),
System.Windows.Forms.AxHost.State)
Me.AxMSFlexGrid2.Size
= New
System.Drawing.Size(723, 90)
Me.AxMSFlexGrid2.TabIndex =
0
Me.AxMSFlexGrid2.TabStop
= False
'
'Label2
'
Me.Label2.BackColor =
System.Drawing.Color.Transparent
Me.Label2.Font =
New
System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold
Or
System.Drawing.FontStyle.Italic),
System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor =
System.Drawing.Color.Lime
Me.Label2.Location =
New System.Drawing.Point(10,
61)
Me.Label2.Name =
"Label2"
Me.Label2.Size =
New System.Drawing.Size(84,
19)
Me.Label2.TabIndex =
7
Me.Label2.Text =
"Función:"
Me.Label2.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'TextBox1
'
Me.TextBox1.Location
= New
System.Drawing.Point(91, 62)
Me.TextBox1.Name =
"TextBox1"
Me.TextBox1.Size =
New System.Drawing.Size(98,
20)
Me.TextBox1.TabIndex =
1
'
'Label3
'
Me.Label3.BackColor =
System.Drawing.Color.Transparent
Me.Label3.Font =
New
System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold
Or
System.Drawing.FontStyle.Italic),
System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor =
System.Drawing.Color.Lime
Me.Label3.Location =
New System.Drawing.Point(596,
63)
Me.Label3.Name =
"Label3"
Me.Label3.Size =
New System.Drawing.Size(68,
19)
Me.Label3.TabIndex =
9
Me.Label3.Text =
"Orden:"
Me.Label3.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'ComboBox2
'
Me.ComboBox2.FormattingEnabled =
True
Me.ComboBox2.Items.AddRange(New
Object() {"1ra. derivada", "2da. derivada", "3ra. derivada", "4ta. derivada", "5ta. derivada"})
Me.ComboBox2.Location
= New
System.Drawing.Point(663, 59)
Me.ComboBox2.Name =
"ComboBox2"
Me.ComboBox2.Size =
New System.Drawing.Size(106,
21)
Me.ComboBox2.TabIndex =
3
'
'Label4
'
Me.Label4.BackColor =
System.Drawing.Color.Transparent
Me.Label4.Font =
New
System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold
Or
System.Drawing.FontStyle.Italic),
System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor =
System.Drawing.Color.Lime
Me.Label4.Location =
New System.Drawing.Point(202,
63)
Me.Label4.Name =
"Label4"
Me.Label4.Size =
New System.Drawing.Size(79,
19)
Me.Label4.TabIndex =
11
Me.Label4.Text =
"Método:"
Me.Label4.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'ComboBox1
'
Me.ComboBox1.FormattingEnabled =
True
Me.ComboBox1.Items.AddRange(New
Object() {"Tablas de Diferencias Divididas Hacia
Adelante", "Tablas de
Diferencias Divididas Hacia Atrás",
"Tablas de Diferencias Divididas
Centradas", "Fórmulas de Alta Precisión Hacia
Adelante", "Fórmulas de Alta Precisión Hacia
Atrás", "Fórmulas de Alta Precisión
Centradas"})
Me.ComboBox1.Location
= New
System.Drawing.Point(277, 63)
Me.ComboBox1.Name =
"ComboBox1"
Me.ComboBox1.Size =
New System.Drawing.Size(271,
21)
Me.ComboBox1.TabIndex =
2
'
'Label5
'
Me.Label5.BackColor =
System.Drawing.Color.Transparent
Me.Label5.Font =
New
System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold
Or
System.Drawing.FontStyle.Italic),
System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor =
System.Drawing.Color.Lime
Me.Label5.Location =
New System.Drawing.Point(69,
90)
Me.Label5.Name =
"Label5"
Me.Label5.Size =
New System.Drawing.Size(25,
19)
Me.Label5.TabIndex =
13
Me.Label5.Text =
"x:"
Me.Label5.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'TextBox2
'
Me.TextBox2.Location
= New
System.Drawing.Point(91, 88)
Me.TextBox2.Name =
"TextBox2"
Me.TextBox2.Size =
New System.Drawing.Size(60,
20)
Me.TextBox2.TabIndex =
4
'
'Label6
'
Me.Label6.BackColor =
System.Drawing.Color.Transparent
Me.Label6.Font =
New
System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold
Or
System.Drawing.FontStyle.Italic),
System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.ForeColor =
System.Drawing.Color.Lime
Me.Label6.Location =
New System.Drawing.Point(252,
90)
Me.Label6.Name =
"Label6"
Me.Label6.Size =
New System.Drawing.Size(25,
19)
Me.Label6.TabIndex =
15
Me.Label6.Text =
"h:"
Me.Label6.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'TextBox3
'
Me.TextBox3.Location
= New
System.Drawing.Point(275, 90)
Me.TextBox3.Name =
"TextBox3"
Me.TextBox3.Size =
New System.Drawing.Size(60,
20)
Me.TextBox3.TabIndex =
5
'
'Button1
'
Me.Button1.BackgroundImage
= CType(resources.GetObject("Button1.BackgroundImage"),
System.Drawing.Image)
Me.Button1.Font =
New
System.Drawing.Font("Georgia", 12.0!,
System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ForeColor =
System.Drawing.Color.Blue
Me.Button1.Location
= New
System.Drawing.Point(24, 488)
Me.Button1.Name =
"Button1"
Me.Button1.Size =
New System.Drawing.Size(145,
59)
Me.Button1.TabIndex =
7
Me.Button1.Text =
"Encontrar Derivada"
Me.Button1.UseVisualStyleBackColor
= True
'
'Button2
'
Me.Button2.BackgroundImage
= CType(resources.GetObject("Button2.BackgroundImage"),
System.Drawing.Image)
Me.Button2.Font =
New
System.Drawing.Font("Georgia", 12.0!,
System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.ForeColor =
System.Drawing.Color.Blue
Me.Button2.Location
= New
System.Drawing.Point(219, 488)
Me.Button2.Name =
"Button2"
Me.Button2.Size =
New System.Drawing.Size(145,
59)
Me.Button2.TabIndex =
8
Me.Button2.Text =
"Limpiar"
Me.Button2.UseVisualStyleBackColor
= True
'
'Label8
'
Me.Label8.AutoSize =
True
Me.Label8.BackColor =
System.Drawing.Color.Transparent
Me.Label8.Font =
New
System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold
Or
System.Drawing.FontStyle.Italic),
System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor =
System.Drawing.Color.Lime
Me.Label8.Location =
New System.Drawing.Point(11,
253)
Me.Label8.Name =
"Label8"
Me.Label8.Size =
New System.Drawing.Size(30,
18)
Me.Label8.TabIndex =
22
Me.Label8.Text =
"La"
'
'Button4
'
Me.Button4.BackgroundImage
= CType(resources.GetObject("Button4.BackgroundImage"),
System.Drawing.Image)
Me.Button4.Font =
New
System.Drawing.Font("Georgia", 12.0!,
System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button4.ForeColor =
System.Drawing.Color.Blue
Me.Button4.Location
= New
System.Drawing.Point(414, 488)
Me.Button4.Name =
"Button4"
Me.Button4.Size =
New System.Drawing.Size(145,
59)
Me.Button4.TabIndex =
10
Me.Button4.Text =
"Salir"
Me.Button4.UseVisualStyleBackColor
= True
'
'Label9
'
Me.Label9.AutoSize =
True
Me.Label9.BackColor =
System.Drawing.Color.Transparent
Me.Label9.Font =
New
System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold
Or
System.Drawing.FontStyle.Italic),
System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.ForeColor =
System.Drawing.Color.Lime
Me.Label9.Location =
New System.Drawing.Point(170,
253)
Me.Label9.Name =
"Label9"
Me.Label9.Size =
New System.Drawing.Size(509,
18)
Me.Label9.TabIndex =
24
Me.Label9.Text =
"derivada de la función introducida
es aproximadamente de"
'
'Label10
'
Me.Label10.AutoSize
= True
Me.Label10.BackColor =
System.Drawing.Color.Transparent
Me.Label10.Font =
New
System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold
Or
System.Drawing.FontStyle.Italic),
System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.ForeColor =
System.Drawing.Color.Lime
Me.Label10.Location
= New
System.Drawing.Point(11, 276)
Me.Label10.Name =
"Label10"
Me.Label10.Size =
New System.Drawing.Size(135,
18)
Me.Label10.TabIndex =
25
Me.Label10.Text =
"con un error de"
'
'Label11
'
Me.Label11.AutoSize
= True
Me.Label11.BackColor =
System.Drawing.Color.Transparent
Me.Label11.Font =
New
System.Drawing.Font("Georgia", 14.25!, CType((System.Drawing.FontStyle.Bold
Or
System.Drawing.FontStyle.Italic),
System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.ForeColor =
System.Drawing.Color.Lime
Me.Label11.Location
= New
System.Drawing.Point(663, 454)
Me.Label11.Name =
"Label11"
Me.Label11.Size =
New System.Drawing.Size(0,
23)
Me.Label11.TabIndex =
26
'
'TextBox5
'
Me.TextBox5.Location
= New
System.Drawing.Point(47, 251)
Me.TextBox5.Name =
"TextBox5"
Me.TextBox5.ReadOnly
= True
Me.TextBox5.Size =
New System.Drawing.Size(115,
20)
Me.TextBox5.TabIndex =
27
Me.TextBox5.TabStop
= False
Me.TextBox5.TextAlign =
System.Windows.Forms.HorizontalAlignment.Center
'
'TextBox6
'
Me.TextBox6.Location
= New
System.Drawing.Point(681, 251)
Me.TextBox6.Name =
"TextBox6"
Me.TextBox6.ReadOnly
= True
Me.TextBox6.Size =
New System.Drawing.Size(93,
20)
Me.TextBox6.TabIndex =
28
Me.TextBox6.TabStop
= False
'
'TextBox7
'
Me.TextBox7.Location
= New
System.Drawing.Point(152, 274)
Me.TextBox7.Name =
"TextBox7"
Me.TextBox7.ReadOnly
= True
Me.TextBox7.Size =
New System.Drawing.Size(115,
20)
Me.TextBox7.TabIndex =
29
Me.TextBox7.TabStop
= False
'
'TextBox9
'
Me.TextBox9.Location
= New
System.Drawing.Point(688, 427)
Me.TextBox9.Name =
"TextBox9"
Me.TextBox9.ReadOnly
= True
Me.TextBox9.Size =
New System.Drawing.Size(86,
20)
Me.TextBox9.TabIndex =
34
Me.TextBox9.TabStop
= False
'
'TextBox8
'
Me.TextBox8.Location
= New
System.Drawing.Point(47, 427)
Me.TextBox8.Name =
"TextBox8"
Me.TextBox8.ReadOnly
= True
Me.TextBox8.Size =
New System.Drawing.Size(115,
20)
Me.TextBox8.TabIndex =
33
Me.TextBox8.TabStop
= False
Me.TextBox8.TextAlign =
System.Windows.Forms.HorizontalAlignment.Center
'
'Label12
'
Me.Label12.AutoSize
= True
Me.Label12.BackColor =
System.Drawing.Color.Transparent
Me.Label12.Font =
New
System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold
Or
System.Drawing.FontStyle.Italic),
System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.ForeColor =
System.Drawing.Color.Lime
Me.Label12.Location
= New
System.Drawing.Point(11, 453)
Me.Label12.Name =
"Label12"
Me.Label12.Size =
New System.Drawing.Size(135,
18)
Me.Label12.TabIndex =
32
Me.Label12.Text =
"con un error de"
'
'Label13
'
Me.Label13.AutoSize
= True
Me.Label13.BackColor =
System.Drawing.Color.Transparent
Me.Label13.Font =
New
System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold
Or
System.Drawing.FontStyle.Italic),
System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.ForeColor =
System.Drawing.Color.Lime
Me.Label13.Location
= New
System.Drawing.Point(170, 429)
Me.Label13.Name =
"Label13"
Me.Label13.Size =
New System.Drawing.Size(509,
18)
Me.Label13.TabIndex =
31
Me.Label13.Text =
"derivada de la función introducida
es aproximadamente de"
'
'Label14
'
Me.Label14.AutoSize
= True
Me.Label14.BackColor =
System.Drawing.Color.Transparent
Me.Label14.Font =
New
System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold
Or
System.Drawing.FontStyle.Italic),
System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.ForeColor =
System.Drawing.Color.Lime
Me.Label14.Location
= New
System.Drawing.Point(11, 429)
Me.Label14.Name =
"Label14"
Me.Label14.Size =
New System.Drawing.Size(30,
18)
Me.Label14.TabIndex =
30
Me.Label14.Text =
"La"
'
'TextBox10
'
Me.TextBox10.Location
= New
System.Drawing.Point(152, 451)
Me.TextBox10.Name =
"TextBox10"
Me.TextBox10.ReadOnly
= True
Me.TextBox10.Size =
New System.Drawing.Size(115,
20)
Me.TextBox10.TabIndex =
35
Me.TextBox10.TabStop
= False
'
'Label15
'
Me.Label15.AutoSize
= True
Me.Label15.BackColor =
System.Drawing.Color.Transparent
Me.Label15.Font =
New
System.Drawing.Font("Georgia", 8.25!,
System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label15.ForeColor =
System.Drawing.Color.Yellow
Me.Label15.Location
= New
System.Drawing.Point(569, 519)
Me.Label15.Name =
"Label15"
Me.Label15.Size =
New System.Drawing.Size(216,
42)
Me.Label15.TabIndex =
37
Me.Label15.Text =
"Jaime Montoya" &
Global.Microsoft.VisualBasic.ChrW(13) &
Global.Microsoft.VisualBasic.ChrW(10)
& "webmaster[arroba]jaimemontoya.com"
& Global.Microsoft.VisualBasic.ChrW(13)
& Global.Microsoft.VisualBasic.ChrW(10)
& "www.jaimemontoya.com"
'
'Label7
'
Me.Label7.BackColor =
System.Drawing.Color.Transparent
Me.Label7.Font =
New
System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold
Or
System.Drawing.FontStyle.Italic),
System.Drawing.FontStyle),
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.ForeColor =
System.Drawing.Color.Lime
Me.Label7.Location =
New System.Drawing.Point(557,
92)
Me.Label7.Name =
"Label7"
Me.Label7.Size =
New System.Drawing.Size(112,
19)
Me.Label7.TabIndex =
36
Me.Label7.Text =
"Tolerancia:"
Me.Label7.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'TextBox4
'
Me.TextBox4.Location
= New
System.Drawing.Point(664, 91)
Me.TextBox4.Name =
"TextBox4"
Me.TextBox4.Size =
New System.Drawing.Size(60,
20)
Me.TextBox4.TabIndex =
6
'
'Form1
'
Me.AutoScaleDimensions
= New
System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode =
System.Windows.Forms.AutoScaleMode.Font
Me.BackgroundImage =
CType(resources.GetObject("$this.BackgroundImage"),
System.Drawing.Image)
Me.ClientSize =
New System.Drawing.Size(784,
564)
Me.Controls.Add(Me.Label15)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.TextBox10)
Me.Controls.Add(Me.TextBox9)
Me.Controls.Add(Me.TextBox8)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.TextBox7)
Me.Controls.Add(Me.TextBox6)
Me.Controls.Add(Me.TextBox5)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.ComboBox2)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label1)
Me.Name =
"Form1"
Me.StartPosition =
System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text =
"Derivación por Diferencias
Divididas y por Fórmulas de Alta
Precisión"
Me.GroupBox1.ResumeLayout(False)
CType(Me.AxMSFlexGrid1,
System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox2.ResumeLayout(False)
CType(Me.AxMSFlexGrid2,
System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As
System.Windows.Forms.GroupBox
Friend WithEvents GroupBox2 As
System.Windows.Forms.GroupBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents ComboBox2 As
System.Windows.Forms.ComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents ComboBox1 As
System.Windows.Forms.ComboBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
Friend WithEvents TextBox9 As System.Windows.Forms.TextBox
Friend WithEvents TextBox8 As System.Windows.Forms.TextBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents AxMSFlexGrid1
As
AxMSFlexGridLib.AxMSFlexGrid
Friend WithEvents AxMSFlexGrid2
As
AxMSFlexGridLib.AxMSFlexGrid
Friend WithEvents TextBox10 As System.Windows.Forms.TextBox
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
End Class
CÓDIGO
DEL PROGRAMA
El código del único formulario del
programa
(llamado Form1.vb), se muestra a
continuación:
Imports
System.Text
Imports
System.CodeDom.Compiler
Imports
System.Collections.Specialized 'Sin esto no funcionaría ninguna
instanciación o variable declarada "As New
StringCollection()"
Public Class Form1
'NOTA: En vez de dimencionar 30 variables
públicas para arreglos bidimensionales (tablas1, tablas2,
tablas3,…tablas30), bastaría declarar una sola que tenga
el número máximo de filas (primer y el
número dentro del paréntesis) y el número
máximo de columnas (segundo número dentro del
paréntesis), pues después al dimensionar se puede
programar que tengan menos filas o menos columnas que las que se
han declarado, pero nunca más de las que se declararon.
Sin embargo se hará la declaración de 30 variables
públicas para arreglos bidimensionales para asignar
exclusivamente una variable a cada caso y tener clara la idea del
caso con el que se está trabajando.
Public tablas1(2, 3)
As String '3 filas y 4
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
primera derivada por Tablas de Diferencias Divididas Hacia
Adelante).
Public tablas2(3, 4)
As String '4 filas y 5
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
segunda derivada por Tablas de Diferencias Divididas Hacia
Adelante).
Public tablas3(4, 5)
As String '5 filas y 6
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
tercera derivada por Tablas de Diferencias Divididas Hacia
Adelante).
Public tablas4(5, 6)
As String '6 filas y 7
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
cuarta derivada por Tablas de Diferencias Divididas Hacia
Adelante).
Public tablas5(6, 7)
As String '7 filas y 8
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
quinta derivada por Tablas de Diferencias Divididas Hacia
Adelante).
Public tablas6(2, 3)
As String '3 filas y 4
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
primera derivada por Tablas de Diferencias Divididas Hacia
Atrás).
Public tablas7(3, 4)
As String '4 filas y 5
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
segunda derivada por Tablas de Diferencias Divididas Hacia
Atrás).
Public tablas8(4, 5)
As String '5 filas y 6
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
tercera derivada por Tablas de Diferencias Divididas Hacia
Atrás).
Public tablas9(5, 6)
As String '6 filas y 7
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
cuarta derivada por Tablas de Diferencias Divididas Hacia
Atrás).
Public tablas10(6,
7) As String '7 filas y 8
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
quinta derivada por Tablas de Diferencias Divididas Hacia
Atrás).
Public tablas11(3,
3) As String '4 filas y 4
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
primera derivada por Tablas de Diferencias Divididas
Centradas).
Public tablas12(5,
4) As String '6 filas y 5
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
segunda derivada por Tablas de Diferencias Divididas
Centradas).
Public tablas13(7,
5) As String '8 filas y 6
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
tercera derivada por Tablas de Diferencias Divididas
Centradas).
Public tablas14(9,
6) As String '10 filas y 7
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
cuarta derivada por Tablas de Diferencias Divididas
Centradas).
Public tablas15(11,
7) As String '12 filas y 8
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
quinta derivada por Tablas de Diferencias Divididas
Centradas).
Public tablas16(50,
7) As String '51 filas y 8
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
primera derivada por Fórmulas de Alta Precisión
Hacia Adelante).
Public tablas17(1,
7) As String '2 filas y 8
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
segunda derivada por Fórmulas de Alta Precisión
Hacia Adelante).
Public tablas18(1,
9) As String '2 filas y 10
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
tercera derivada por Fórmulas de Alta Precisión
Hacia Adelante).
Public tablas19(1,
11) As String '2 filas y 12
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
cuarta derivada por Fórmulas de Alta Precisión
Hacia Adelante).
Public tablas20(1,
13) As String '2 filas y 14
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
quinta derivada por Fórmulas de Alta Precisión
Hacia Adelante).
Public tablas21(50,
7) As String '51 filas y 8
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso de que se evalúe
la primera derivada por Fórmulas de Alta precisión
Hacia Atrás).
Public tablas22(1,
7) As String '2 filas y 8
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
segunda derivada por Fórmulas de Alta Precisión
Hacia Atrás).
Public tablas23(1,
9) As String '2 filas y 10
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
tercera derivada por Fórmulas de Alta Precisión
Hacia Atrás).
Public tablas24(1,
11) As String '2 filas y 12
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
cuarta derivada por Fórmulas de Alta Precisión
Hacia Atrás).
Public tablas25(1,
13) As String '2 filas y 14
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso que se evalúe la
quinta derivada por Fórmulas de Alta Precisión
Hacia Atrás).
Public tablas26(1,
5) As String '2 filas y 6
columnas (pues se comienza de la posición cero). Para los
resultados de las evaluaciones (en caso de que se evalúe
la primera derivada por Fórmulas de Alta Precisión
Centradas).
 Página anterior | Volver al principio del trabajo | Página siguiente  |